home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 July
/
07_02.iso
/
software
/
xq-xsetup
/
files
/
setup.exe
/
{app}
/
plugins
/
XQ Visio 2000 Settings 1.xpl
< prev
next >
Wrap
Text File
|
2000-11-11
|
1KB
|
68 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="6"
"COUNT"="2"
"UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
"NAME"="Visio 2000 Misc Settings"
"VERSION"="1.10"
"LANGUAGE"="VBScript"
"TEXT 1"="Macro Virus Protection."
"TEXT 2"="Bitmap Caching"
"DESCRIPTION 1"="To enable Macro Virus Protection, check Box 1. Default is disabled [unchecked box]."
"DESCRIPTION 2"="To disable Bitmap Caching, check Box 2. Default is enabled [unchecked box]."
"AUTHOR"="Ojatex@aol.com"
"CONTACTURL"="http://members.aol.com/ojatex/"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
"COMMENT 2"="Thanks to CptSiskoX for the tip and settings."
sP="HKCU\Software\Visio\Visio 2000\application\"
sV1="MacroVirusProtection"
sV2="TurnOffBitmapCache"
Sub Plugin_Initialize
if RegPathExists(sP) then
i=RegReadValue(sP & sV1)
if i=1 then SetUiElement 1,true
i=RegReadValue(sP & sV2)
if i=1 then SetUiElement 2,true
else
Call Disable()
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
b=GetUIElement(1)
if b=true then
i="1"
else
i="0"
end if
Call RegWriteValue(sP & sV1,i,1)
b=GetUIElement(2)
if b=true then
i="1"
else
i="0"
end if
Call RegWriteValue(sP & sV2,i,1)
End Sub
Sub Plugin_Terminate
End Sub